home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / tex31 / inputs.lzh / slitex.tex < prev    next >
Text File  |  1989-06-13  |  25KB  |  722 lines
  1. % SLITEX VERSION 2.09 <8 Jun 1988>
  2. % Copyright (C) 1986 by Leslie Lamport
  3.  
  4. \everyjob{\typeout{SliTeX Version 2.09 <8 Jun 1988>}}
  5. \immediate\write10{SliTeX Version 2.09 <8 Jun 1988>}
  6.  
  7. % NOTES FOR DEFINING FONTS AND STYLES FOR SLIDES
  8. %   Every font definition -- \rm, \it, etc. must \def\@currfont to itself.
  9. %   Every size definition such as \normalsize is defined to be
  10. %          \@normalsize
  11. %          \def\@currsize{\@normal}\rm 
  12. %          commands to set:
  13. %             \baselineskip 
  14. %             \lineskip
  15. %             the ...displayskip and ...displayshortskip parameters
  16. %             \strutbox
  17. %             \parskip and \@parskip
  18. %   where \@normal makes all the font definitions.
  19. %   \@normal must test the switch @visible and define its 
  20. %   fonts equal to the visible or the invisible versions accordingly.
  21.  
  22.  \message{hacks,}
  23. %      **********************************************
  24. %      *          HACKS FOR SLIDE MACROS            *
  25. %      **********************************************
  26. % 
  27. % The macro \@getend{FOO} defines \@arg to equal all the text up to
  28. % but excluding the next \end{FOO}, which it gobbles up.  
  29. % Note that the characters in this text will all be interpreted with
  30. % their current category codes, so any embedded environments (such as
  31. % an example environment) won't work right.  NOTE--GOBBLES
  32. % THE \fi's -- MUST BE MODIFIED LIKE \@gobbletoend BELOW.
  33.  
  34.  
  35. %\def\@getend#1{\def\@arg{}\def\@argend{#1}\@addtoarg}
  36. %
  37. %\long\def\@addtoarg#1\end#2{\tokens{#1}%
  38. %\long\edef\@x@add##1\@@{\long\def\@arg{##1\the\tokens}}%
  39. %\expandafter\@x@add\@arg\@@\def\@x@a{#2}\ifx\@x@a\@argend\else
  40. %\tokens{\end{#2}}\long\edef\@x@add##1\@@{\long\def\@arg{##1\the\tokens}}%
  41. %\expandafter\@x@add\@arg\@@\@addtoarg\fi}
  42.  
  43. % \@gobbletoend{FOO} gobbles all text up to and including the
  44. % next \end{FOO}.  Must be used inside an \if, right before the \fi.
  45.  
  46. \def\@gobbletoend#1{\def\@argend{#1}\@ggobtoend}
  47.  
  48. \long\def\@ggobtoend#1\end#2{\@xfi\def\@x@a{#2}%
  49. \ifx\@x@a\@argend\else\@ggobtoend\fi}
  50. \def\@xfi{\fi}
  51.  
  52.  \message{slides,}
  53. %      **********************************************
  54. %      *               SLIDE  MACROS                *
  55. %      **********************************************
  56. % 
  57. % Switches:
  58. % @bw      : true if making black and white slides
  59. % @visible : true if visible output to be produced.
  60. % @makingslides : true if executing \blackandwhite or \colorslides
  61.  
  62. \newif\if@bw
  63. \newif\if@visible
  64. \newif\if@onlyslidesw \@onlyslideswfalse
  65. \newif\if@onlynotesw  \@onlynoteswfalse
  66. \newif\if@makingslides
  67.  
  68. % Counters
  69. %  slide   = slide number
  70. %  overlay = overlay number for a slide
  71. %  note    = note number for a slide
  72.  
  73. \countdef\c@slide=0 \c@slide=0
  74. \def\cl@slide{}
  75. \countdef\c@overlay=1 \c@overlay=0
  76. \def\cl@overlay{}
  77. \countdef\c@note=2 \c@note=0
  78. \def\cl@note{}
  79.  
  80.  
  81. \@addtoreset{overlay}{slide}
  82. \@addtoreset{note}{slide}
  83.  
  84. % Redefine page counter to some other number.
  85. % The page counter will always be zero except when putting out an
  86. % extra page for a slide, note or overlay.
  87. %
  88. \@definecounter{page} 
  89. \@addtoreset{page}{slide}
  90. \@addtoreset{page}{note}
  91. \@addtoreset{page}{overlay}
  92.  
  93.  
  94. \def\theslide{\@arabic\c@slide}
  95. \def\theoverlay{\theslide-\@alph\c@overlay}
  96. \def\thenote{\theslide-\@arabic\c@note}
  97.  
  98. % \@setlimits \LIST \LOW \HIGH 
  99. %
  100. %    Assumes that \LIST = RANGE1,RANGE2,...,RANGEn  (n>0)
  101. %    Where RANGEi = j or j-k.
  102. %    
  103. %    Then \@setlimits  globally sets
  104. %        (i) \LIST := RANGE2, ... , RANGEn
  105. %       (ii) \LOW  := p
  106. %      (iii) \HIGH := q
  107. %   where either RANGE1 = p-q   or  RANGE1 = p  and  q=p.
  108.  
  109. \def\@sl@getargs#1-#2-#3\relax#4#5{\xdef#4{#1}\xdef#5{#2}}
  110. \def\@sl@ccdr#1,#2\relax#3#4{\xdef#3{#1-#1-}\xdef#4{#2}}
  111.  
  112. \def\@setlimits #1#2#3{\expandafter\@sl@ccdr#1\relax\@sl@gtmp #1%
  113. \expandafter\@sl@getargs\@sl@gtmp\relax#2#3}
  114.  
  115. % \onlyslides{LIST} ::=
  116. %  BEGIN
  117. %    @onlyslidesw := true
  118. %    \@doglslidelist :=G LIST,999999,999999
  119. %   if @onlynotesw = true
  120. %     else @onlynotesw := true
  121. %          \@doglnotelist :=G LIST,999999,999999
  122. %   fi
  123. %   message: Only Slides LIST
  124. %  END
  125.  
  126. \def\onlyslides#1{\@onlyslideswtrue\gdef\@doglslidelist{#1,999999,999999}%
  127. \if@onlynotesw \else \@onlynoteswtrue\gdef\@doglnotelist{999999,999999}\fi
  128. \typeout{Only Slides #1}}
  129.  
  130. % \onlynotes{LIST} ::=
  131. %  BEGIN
  132. %    @onlynotesw := true
  133. %    \@doglnotelist :=G LIST,999999,999999
  134. %   if @onlyslidesw = true
  135. %     else \@onlyslidesw := true
  136. %          \@doglslidelist{999999,999999}
  137. %   fi
  138. %   message: Only Notes LIST
  139. %  END
  140.  
  141. \def\onlynotes#1{\@onlynoteswtrue\gdef\@doglnotelist{#1,999999,999999}%
  142. \if@onlyslidesw \else \@onlyslideswtrue\gdef\@doglslidelist{999999,999999}\fi
  143. \typeout{Only Notes #1}}
  144.  
  145.  
  146. % \blackandwhite #1  ::=
  147. %    \newpage
  148. %    page counter := 0
  149. %    @bw := T
  150. %    @visible := T
  151. %    if @onlyslidesw = true
  152. %      then  \@doslidelist := \@doglslidelist
  153. %            \@setlimits\@doslidelist\@doslidelow\@doslidehigh
  154. %    fi
  155. %    if @onlynotesw = true
  156. %      then  \@donotelist := \@doglnotelist
  157. %            \@setlimits\@donotelist\@donotelow\@donotehigh
  158. %    fi
  159. %    \normalsize    % Note, this sets font to \rm , which sets
  160. %                     % \@currfont to \rm
  161. %    counter slidenumber := 0
  162. %    counter note        := 0
  163. %    counter overlay     := 0
  164. %    @makingslides       := T
  165. %    input #1
  166. %    @makingslides       := F
  167.  
  168. \def\blackandwhite#1{\newpage\setcounter{page}{0}\@bwtrue\@visibletrue
  169. \if@onlyslidesw \xdef\@doslidelist{\@doglslidelist}%
  170. \@setlimits\@doslidelist\@doslidelow\@doslidehigh\fi
  171. \if@onlynotesw \xdef\@donotelist{\@doglnotelist}%
  172. \@setlimits\@donotelist\@donotelow\@donotehigh\fi
  173. \normalsize\setcounter{slide}{0}\setcounter{overlay}{0}%
  174. \setcounter{note}{0}\@makingslidestrue\input #1\@makingslidesfalse}
  175.  
  176.  
  177. % \colors{COLORS} ::=
  178. %  for \@colortemp := COLORS
  179. %     do \csname \@colortemp \endcsname == \@color{\@colortemp} od
  180. %  if \@colorlist = empty
  181. %     then \@colorlist := COLORS
  182. %     else \@colorlist := \@colorlist , COLORS
  183. %  fi
  184. %
  185. \def\colors#1{\@for\@colortemp:=#1\do{\expandafter
  186.   \xdef\csname\@colortemp\endcsname{\noexpand\@color{\@colortemp}}}\ifx
  187.   \@colorlist\@empty \gdef\@colorlist{#1}
  188.     \else \xdef\@colorlist{\@colorlist,#1}\fi}
  189.  
  190. \def\@colorlist{}
  191.  
  192. % \colorslides{FILE} ::=
  193. %    \newpage
  194. %    page counter := 0
  195. %    @bw := F
  196. %    for \@currcolor := \@colorlist
  197. %      do  @visible := T
  198. %          if @onlyslidesw = true
  199. %            then  \@doslidelist := \@doglslidelist
  200. %                  \@setlimits\@doslidelist\@doslidelow\@doslidehigh
  201. %          fi
  202. %          if @onlynotesw = true
  203. %            then  \@donotelist := \@doglnotelist
  204. %                  \@setlimits\@donotelist\@donotelow\@donotehigh
  205. %          fi
  206. %          \normalsize
  207. %          counter slide := 0
  208. %          counter overlay := 0
  209. %          counter note    := 0
  210. %          type message
  211. %          generate color layer output page
  212. %          @makingslides := T
  213. %          input #1
  214. %          @makingslides := F
  215. %      od
  216.  
  217. \def\colorslides#1{\newpage\setcounter{page}{0}\@bwfalse
  218. \@for\@currcolor:=\@colorlist\do
  219. {\@visibletrue
  220. \if@onlyslidesw \xdef\@doslidelist{\@doglslidelist}%
  221. \@setlimits\@doslidelist\@doslidelow\@doslidehigh\fi
  222. \if@onlynotesw \xdef\@donotelist{\@doglnotelist}%
  223. \@setlimits\@donotelist\@donotelow\@donotehigh\fi
  224. \normalsize\setcounter{slide}{0}\setcounter{overlay}{0}%
  225. \setcounter{note}{0}\typeout{color \@currcolor}%
  226. \newpage
  227. \begin{huge}
  228. \begin{center}
  229. COLOR LAYER\\[.75in]
  230. \@currcolor
  231. \end{center}
  232. \end{huge}
  233. \newpage
  234. \@makingslidestrue
  235. \input #1
  236. \@makingslidesfalse}}
  237.  
  238.  
  239. % \slide COLORS ::=
  240. %  BEGIN
  241. %   \stepcounter{slide}   
  242. %   \@slidesw :=G T
  243. %   if @onlyslidesw = true                     % set \@slidesw = T iff page to
  244. %     then                                   % be output
  245. %       while \c@slide > \@doslidehigh
  246. %          do  \@setlimits\@doslidelist\@doslidelow\@doslidehigh  od
  247. %       if \c@slide < \@doslidelow
  248. %         then \@slidesw := F
  249. %       fi
  250. %   fi
  251. %   if \@slidesw = T
  252. %      then \@slidesw :=G F
  253. %           \begingroup                           
  254. %              if @bw = true  
  255. %                then  \@slidesw :=G T   
  256. %                else \@color{COLORS}
  257. %                     \if@visible then \@slidesw :=G T \fi
  258. %              fi
  259. %            \endgroup
  260. %  fi
  261. %  if \@slidesw = T
  262. %